(defun c:justaleader ( / ldrpt1 ldrpt2 leaderpt_lst prevldrpt2)
  (if upoint nil (load "upoint" "\nFile UPOINT.LSP not loaded! "))
  (setq ldrpt1 (upoint 1 "" "Specify leader start point" nil nil))
  (WHILE
    (setq ldrpt2 (upoint 0 "" "Specify next point" nil (if prevldrpt2 prevldrpt2 ldrpt1)))
    (IF prevldrpt2
      (grdraw prevldrpt2 ldrpt2 7)
      (grdraw ldrpt1 ldrpt2 7)
    )
    (setq prevldrpt2 ldrpt2)
    (setq leaderpt_lst (append leaderpt_lst (list ldrpt2)))
  )
  (IF (AND ldrpt1 leaderpt_lst)
    (PROGN
      (command ".leader" "non" ldrpt1)
      (foreach n leaderpt_lst (COMMAND "non" n))
      (COMMAND "" "" "none")
      (COMMAND ".redraw")
    )
    (princ "\nFunction cancelled! ")
  )
  (PRINC)
)